<?php
/**
 * 公共函数库
 */

/**
 * math页面处理函数
 * 
 * @param $cs
 * @param $bcs
 * @return unknown_type
 */
function division($cs,$bcs)
{
	return intval($cs)/intval($bcs);

}
function show($val)
{
	return $val;
}


    /**
     * 获取客户端ip
     * 
     * @param $is_long
     * @return unknown_type
     */
    function getClientIp ( $is_long = FALSE )
    {
        if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"])
        {
            $ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
        }
        elseif ($HTTP_SERVER_VARS["HTTP_CLIENT_IP"])
        {
            $ip = $HTTP_SERVER_VARS["HTTP_CLIENT_IP"];
        }
        elseif ($HTTP_SERVER_VARS["REMOTE_ADDR"])
        {
            $ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
        }
        elseif (getenv("HTTP_X_FORWARDED_FOR"))
        {
            $ip = getenv("HTTP_X_FORWARDED_FOR");
        }
        elseif (getenv("HTTP_CLIENT_IP"))
        {
            $ip = getenv("HTTP_CLIENT_IP");
        }
        elseif (getenv("REMOTE_ADDR"))
        {
            $ip = getenv("REMOTE_ADDR");
        }
        else
        {
            $ip = "Unknown";
        }

        if( $is_long )
        {
            $ip = ip2long_improve($ip);
        }

        return $ip;
    }
	
    /**
     * 对特殊字符进行过滤
     * @param $str
     * @return unknown_type
     */
    function filterChars($str)
    {
    	
    	$string = @strip_tags($str);
    	$string = htmlspecialchars($string);
    	$string = preg_replace("/(javascript|cookie)/i",'',$string);
    	
    	return $string;
    }

    /**
     * 用0或1代替null或者''
     * @return unknown_type
     */
    function clearValue(array $arr)
    {
    	if(is_array($arr))
    	{
    		foreach($arr as $key => &$val)
    		{
    			if(empty($val))
    			{
    				$val = 0;
    			}
    			else
    			{
    				if(is_array($val))
    				{
    					clearValue($val);
    				}
    				else
    				{
    					$val = 1;
    				}
    			}
    		}
    	}
    	else
    	{
    		return false;
    	}
    	
    	return $arr;
    }

/**
 +----------------------------------------------------------
 * URL重定向
 +----------------------------------------------------------
 * @static
 * @access public
 +----------------------------------------------------------
 * @param string $url  要定向的URL地址
 * @param integer $time  定向的延迟时间，单位为秒
 * @param string $msg  提示信息
 +----------------------------------------------------------
 */
function redirect($url, $time = 0, $msg = '')
{
	//多行URL地址支持
	$url = str_replace(array(
        "\n", "\r"
        ), '', $url);
        if (empty($msg)) {
        	$msg = "系统将在{$time}秒之后自动跳转到{$url}！";
        }
        if (! headers_sent()) {
        	// redirect
        	//header("Content-Type:text/html; charset=" . C('OUTPUT_CHARSET'));
        	if (0 === $time) {
        		header("Location: " . $url);
        	}
        	else {
        		header("refresh:{$time};url={$url}");
        		echo ($msg);
        	}
        	exit();
        }
        else {
        	$str = "<meta http-equiv='Refresh' content='{$time};URL={$url}'>";
        	if ($time != 0) {
        		$str .= $msg;
        	}
        	exit($str);
        }
}

/**
 * @param $arr
 * @param $prefix
 * @return unknown_type
 */
function arr2input( $arr, $prefix = '' )
{
	$input_list = array();
	foreach ( $arr AS $name => $val )
	{
		if( !is_array( $val ) )
		{
			if( $prefix )
			{
				$input  = "<input type=\"hidden\" name=\"{$prefix}[{$name}]\"";
			}
			else
			{
				$input  = "<input type=\"hidden\" name=\"{$name}\"";
			}
			$input .= " value=\"{$val}\" />";
			$input_list[] = $input;
		}
		else
		{
			if( $prefix )
			{
				$input_list[] = arr2input( $val, $prefix . "[{$name}]" );
			}
			else
			{
				$input_list[] = arr2input( $val, $name );
			}
		}
	}
	$block_hidden = join( "\n", $input_list );
	return $block_hidden;
}

/**
 * @param $url
 * @param $args
 * @param $exit
 * @return unknown_type
 */
function iredirect( $url, $args = array(), $exit = true )
{
	if( $args and is_array( $args ) )
	{
		$block_hidden = arr2input( $args );

		$html = <<< EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Redirect</title>
<script type="text/javascript">
function load()
{
    document.getElementById("auto_form").submit();
}
</script>
</head>

    <body onLoad="load()">
        <form action="{$url}" method="post" id="auto_form" name="auto_form">
        {$block_hidden}
        </form>
    </body>
</html>
EOF;

        echo $html;
	}
	else
	{

		if (headers_sent())
		{
			$html = <<< EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Redirect</title>
<script type="text/javascript">
function load()
{
    window.location = '{$url}';
}
</script>
</head>
    <body onLoad="load()">
    </body>
</html>
EOF;
			echo $html;
		}
		else
		{
			header('Location: ' . $url);
		}

	}

	if( $exit )
	{
		exit();
	}
}


/**
 +----------------------------------------------------------
 * 优化的include_once
 +----------------------------------------------------------
 * @param string $filename 文件名
 +----------------------------------------------------------
 * @return boolen
 +----------------------------------------------------------
 */
function include_cache($file_name)
{
	static $_import_files = array();
	if (file_exists($file_name)) {
		if (! isset($_import_files[$file_name])) {
			include $file_name;
			$_import_files[$file_name] = true;
			return true;
		}
		return false;
	}
	return false;
}

/**
 +----------------------------------------------------------
 * 优化的require_once
 +----------------------------------------------------------
 * @param string $filename 文件名
 +----------------------------------------------------------
 * @return boolen
 +----------------------------------------------------------
 */
function require_cache($file_name)
{
	static $_import_files = array();
	if (file_exists($file_name)) {
		if (! isset($_import_files[$file_name])) {
			require $file_name;
			$_import_files[$file_name] = true;
			return true;
		}
		return false;
	}
	return false;
}

/**
 +----------------------------------------------------------
 * 字符串截取，支持中文和其他编码
 +----------------------------------------------------------
 * @static
 * @access public
 +----------------------------------------------------------
 * @param string $str 需要转换的字符串
 * @param string $start 开始位置
 * @param string $length 截取长度
 * @param string $charset 编码格式
 * @param string $suffix 截断显示字符
 +----------------------------------------------------------
 * @return string
 +----------------------------------------------------------
 */
function msubstr($str, $start = 0, $length, $charset = "utf-8", $suffix = true)
{
	if (function_exists("mb_substr"))
	return mb_substr($str, $start, $length, $charset);
	elseif (function_exists('iconv_substr')) {
		return iconv_substr($str, $start, $length, $charset);
	}
	$re['utf-8'] = "/[\x01-\x7f]|[\xc2-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf]{2}|[\xf0-\xff][\x80-\xbf]{3}/";
	$re['gb2312'] = "/[\x01-\x7f]|[\xb0-\xf7][\xa0-\xfe]/";
	$re['gbk'] = "/[\x01-\x7f]|[\x81-\xfe][\x40-\xfe]/";
	$re['big5'] = "/[\x01-\x7f]|[\x81-\xfe]([\x40-\x7e]|\xa1-\xfe])/";
	preg_match_all($re[$charset], $str, $match);
	$slice = join("", array_slice($match[0], $start, $length));
	if ($suffix)
	return $slice . "…";
	return $slice;
}

/**
 +----------------------------------------------------------
 * 获取登录验证码 默认为4位数
 +----------------------------------------------------------
 * @param string $fmode 文件名
 +----------------------------------------------------------
 * @return string
 +----------------------------------------------------------
 */
function build_verify($length = 4, $mode = 1)
{
	return rand_string($length, $mode);
}

/**
 * 自定义错误处理
 *
 * @access public
 *
 * @param int $errno 错误类型
 * @param string $errstr 错误信息
 * @param string $errfile 错误文件
 * @param int $errline 错误行数
 *
 * @return void
 */
function taomee_error($errno, $errstr, $errfile, $errline)
{
	switch($errno)
	{
		case E_ERROR:
		case E_USER_ERROR:
			$e_str = "ERROR: [$errno] $errstr " . basename($errfile) . " 第  $errline 行.\r\n";
			Log::write($e_str, STAT_WEB_LOG_ERROR);
			exit();
			break;
		case E_WARNING:
		case E_USER_WARNING:
			$e_str = "WARNING: [$errno] $errstr " . basename($errfile) . " 第  $errline 行.\r\n";
			break;
		case E_STRICT:
		case E_NOTICE:
		case E_USER_NOTICE:
		default:
			if(!defined('VERSION') || VERSION != 'release') {
				$e_str = "NOTICE: [$errno] $errstr " . basename($errfile) . " 第  $errline 行.\r\n";
			}
			else {
				$e_str = '' ;
			}
			//Log::record($errorStr);
			break;
	}

	if($e_str) {
		Log::write($e_str, STAT_WEB_LOG_ERROR);
	}
}

function taomee_exception($e)
{
	$e_str = "Unknown Exception: " . $e->getMessage();
	Log::write($e_str, STAT_WEB_LOG_ERROR);
}

/**
 * 显示变量值
 *
 * @param unknown_type $var
 */
function pr($var)
{
	if (is_array($var) || is_object($var)) {
		echo "<pre>";
		print_r($var);
		echo "<pre>";
	}
	else {
		echo $var;
	}
	echo "<br>";
}

/**
 +----------------------------------------------------------
 * 产生随机字串，可用来自动生成密码 默认长度6位 字母和数字混合
 +----------------------------------------------------------
 * @param string $len 长度
 * @param string $type 字串类型
 * 0 字母 1 数字 其它 混合
 * @param string $addChars 额外字符
 +----------------------------------------------------------
 * @return string
 +----------------------------------------------------------
 */
function rand_string($len=6,$type='',$addChars='')
{
	$str ='';
	switch($type)
	{
		case 0:
			$chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'.$addChars;
			break;
		case 1:
			$chars= str_repeat('0123456789',3);
			break;
		case 2:
			$chars='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.$addChars;
			break;
		case 3:
			$chars='abcdefghijklmnopqrstuvwxyz'.$addChars;
			break;
		case 4:
			$chars = "们以我到他会作时要动国产的一是工就年阶义发成部民可出能方进在了不和有大这主中人上为来分生对于学下级地个用同行面说种过命度革而多子后自社加小机也经力线本电高量长党得实家定深法表着水理化争现所二起政三好十战无农使性前等反体合斗路图把结第里正新开论之物从当两些还天资事队批点育重其思与间内去因件日利相由压员气业代全组数果期导平各基或月毛然如应形想制心样干都向变关问比展那它最及外没看治提五解系林者米群头意只明四道马认次文通但条较克又公孔领军流入接席位情运器并飞原油放立题质指建区验活众很教决特此常石强极土少已根共直团统式转别造切九你取西持总料连任志观调七么山程百报更见必真保热委手改管处己将修支识病象几先老光专什六型具示复安带每东增则完风回南广劳轮科北打积车计给节做务被整联步类集号列温装即毫知轴研单色坚据速防史拉世设达尔场织历花受求传口断况采精金界品判参层止边清至万确究书术状厂须离再目海交权且儿青才证低越际八试规斯近注办布门铁需走议县兵固除般引齿千胜细影济白格效置推空配刀叶率述今选养德话查差半敌始片施响收华觉备名红续均药标记难存测士身紧液派准斤角降维板许破述技消底床田势端感往神便贺村构照容非搞亚磨族火段算适讲按值美态黄易彪服早班麦削信排台声该击素张密害侯草何树肥继右属市严径螺检左页抗苏显苦英快称坏移约巴材省黑武培著河帝仅针怎植京助升王眼她抓含苗副杂普谈围食射源例致酸旧却充足短划剂宣环落首尺波承粉践府鱼随考刻靠够满夫失包住促枝局菌杆周护岩师举曲春元超负砂封换太模贫减阳扬江析亩木言球朝医校古呢稻宋听唯输滑站另卫字鼓刚写刘微略范供阿块某功套友限项余倒卷创律雨让骨远帮初皮播优占死毒圈伟季训控激找叫云互跟裂粮粒母练塞钢顶策双留误础吸阻故寸盾晚丝女散焊功株亲院冷彻弹错散商视艺灭版烈零室轻血倍缺厘泵察绝富城冲喷壤简否柱李望盘磁雄似困巩益洲脱投送奴侧润盖挥距触星松送获兴独官混纪依未突架宽冬章湿偏纹吃执阀矿寨责熟稳夺硬价努翻奇甲预职评读背协损棉侵灰虽矛厚罗泥辟告卵箱掌氧恩爱停曾溶营终纲孟钱待尽俄缩沙退陈讨奋械载胞幼哪剥迫旋征槽倒握担仍呀鲜吧卡粗介钻逐弱脚怕盐末阴丰雾冠丙街莱贝辐肠付吉渗瑞惊顿挤秒悬姆烂森糖圣凹陶词迟蚕亿矩康遵牧遭幅园腔订香肉弟屋敏恢忘编印蜂急拿扩伤飞露核缘游振操央伍域甚迅辉异序免纸夜乡久隶缸夹念兰映沟乙吗儒杀汽磷艰晶插埃燃欢铁补咱芽永瓦倾阵碳演威附牙芽永瓦斜灌欧献顺猪洋腐请透司危括脉宜笑若尾束壮暴企菜穗楚汉愈绿拖牛份染既秋遍锻玉夏疗尖殖井费州访吹荣铜沿替滚客召旱悟刺脑措贯藏敢令隙炉壳硫煤迎铸粘探临薄旬善福纵择礼愿伏残雷延烟句纯渐耕跑泽慢栽鲁赤繁境潮横掉锥希池败船假亮谓托伙哲怀割摆贡呈劲财仪沉炼麻罪祖息车穿货销齐鼠抽画饲龙库守筑房歌寒喜哥洗蚀废纳腹乎录镜妇恶脂庄擦险赞钟摇典柄辩竹谷卖乱虚桥奥伯赶垂途额壁网截野遗静谋弄挂课镇妄盛耐援扎虑键归符庆聚绕摩忙舞遇索顾胶羊湖钉仁音迹碎伸灯避泛亡答勇频皇柳哈揭甘诺概宪浓岛袭谁洪谢炮浇斑讯懂灵蛋闭孩释乳巨徒私银伊景坦累匀霉杜乐勒隔弯绩招绍胡呼痛峰零柴簧午跳居尚丁秦稍追梁折耗碱殊岗挖氏刃剧堆赫荷胸衡勤膜篇登驻案刊秧缓凸役剪川雪链渔啦脸户洛孢勃盟买杨宗焦赛旗滤硅炭股坐蒸凝竟陷枪黎救冒暗洞犯筒您宋弧爆谬涂味津臂障褐陆啊健尊豆拔莫抵桑坡缝警挑污冰柬嘴啥饭塑寄赵喊垫丹渡耳刨虎笔稀昆浪萨茶滴浅拥穴覆伦娘吨浸袖珠雌妈紫戏塔锤震岁貌洁剖牢锋疑霸闪埔猛诉刷狠忽灾闹乔唐漏闻沈熔氯荒茎男凡抢像浆旁玻亦忠唱蒙予纷捕锁尤乘乌智淡允叛畜俘摸锈扫毕璃宝芯爷鉴秘净蒋钙肩腾枯抛轨堂拌爸循诱祝励肯酒绳穷塘燥泡袋朗喂铝软渠颗惯贸粪综墙趋彼届墨碍启逆卸航衣孙龄岭骗休借".$addChars;
			break;
		default :
			// 默认去掉了容易混淆的字符oOLl和数字01，要添加请使用addChars参数
			$chars='ABCDEFGHIJKMNPQRSTUVWXYZabcdefghijkmnpqrstuvwxyz23456789'.$addChars;
			break;
	}
	if($len>10 )
	{//位数过长重复字符串一定次数
		$chars= $type==1? str_repeat($chars,$len) : str_repeat($chars,5);
	}
	if($type!=4)
	{
		$chars   =   str_shuffle($chars);
		$str     =   substr($chars,0,$len);
	}else
	{
		// 中文随机字
		for($i = 0; $i < $len; $i++)
		{
			$str.= msubstr($chars, floor(mt_rand(0,mb_strlen($chars,'utf-8')-1)),1);
		}
	}

	return $str;
}

/**
 * 获取pay_service返回值
 * @param $pay_url  pay_service_url
 * @param $action   action
 * @param $array    url_param
 * @return unknown_type
 */
function get_return_by_service($pay_url, $array)
{
	$result = NULL;
	$args   = array();
	$url    = $pay_url . "?";
	
	foreach($array as $k => $v)
	{
		$args[$k] =  $v ;
	}
	
	$url .= http_build_query( $args );	
	$ch   = curl_init();
	
	curl_setopt($ch, CURLOPT_URL, $url);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	curl_setopt($ch, CURLOPT_POST, FALSE);
	
	$output = curl_exec($ch);
	curl_close($ch);
	
	@eval("\$result={$output};");
	
	if (is_array($result))
	{
		
		if($result['status_code'] != 0)
		{
			Log::write( 'URL:' . $_SERVER['REQUEST_URI'] );
			Log::write('Error: Pay Service Return Code >>> '.$result['status_code']);
			$eMsg = 'Error: '.$url;
			Log::write( $eMsg );
		}
		
		return $result;
	} 
	else 
	{
		Log::write( 'URL:' . $_SERVER['REQUEST_URI'] );
		Log::write('Error: '.$url);
		Log::write('Error: Pay Service Return Error >>> Return result is not array!');
		$eMsg = 'Error: ';
		
		foreach($args as $k => $v)
		{
			$eMsg .= $k.'->'.$v.'; ';
		}
		
		Log::write( $eMsg  );
		return FALSE;
	}
}

/**
 * 获取pay_service返回值
 * @param $pay_url  pay_service_url
 * @param $action   action
 * @param $array    url_param
 * @return unknown_type
 */
function getpost($url, $array)
{
	$result = NULL;
	$args   = array();
	$url    = $url . "?";
	
	foreach($array as $k => $v)
	{
		$args[$k] =  $v ;
	}
	
	$url .= http_build_query( $args );	
	$ch   = curl_init();
	
	curl_setopt($ch, CURLOPT_URL, $url);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	curl_setopt($ch, CURLOPT_POST, FALSE);
	
	$output = curl_exec($ch);
	
	curl_close($ch);
	
	return $output;
}
